﻿Module Main
    Public vgCodUsuario As String
    Public vgVigencia As String

    Public Sub Main()
        Application.EnableVisualStyles()
        Dim frm As New FrmLogin
        Dim dlg As DialogResult
        dlg = frm.ShowDialog
        If dlg = DialogResult.OK Then
            Application.Run(New FrmModulo(vgCodUsuario, vgVigencia))
        End If
        Application.Exit()
    End Sub
End Module
